home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / SEARCH / RUBICON / RBDBMEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-21  |  848b  |  43 lines
  1. {*********************************************************}
  2. {*             RBDBMEMO.PAS 1.20             *}
  3. {*      Copyright (c) Tamarack Associates 1996.     *}
  4. {*           All rights reserved.          *}
  5. {*********************************************************}
  6.  
  7. unit rbDBMemo;
  8.  
  9. interface
  10.  
  11. uses
  12.   {$IFDEF WIN32}
  13.   Windows,
  14.   {$ELSE}
  15.   WinTypes, WinProcs,
  16.   {$ENDIF}
  17.   SysUtils, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, DBCtrls;
  19.  
  20. type
  21.   TDBMemoForm = class(TForm)
  22.     Memo: TDBMemo;
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   DBMemoForm: TDBMemoForm;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TDBMemoForm.FormClose(Sender: TObject; var Action: TCloseAction);
  38. begin
  39.  Action := caFree
  40. end;
  41.  
  42. end.
  43.